Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)Msgbox "你确定此操作？", vbYesno, "提示"End Sub

wincc msgbox 对话框 sub wincc自定义 2025-09-11 02:03  6

Sub 智能导出报表 Dim strPath As String Dim strReport As String strReport = "销售月报" '自动生成带时间戳的文件名 strPath = CurrentProject.Path & "\导出文件\"

pdf access msgbox sub 导出pdf 2025-09-05 21:26  11